Celestin Apprentice 5

home *** CD-ROM | disk | FTP | other *** search

/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / Kepler9.Obj < prev next >

Wrap

Text File | 1996-01-25 | 10.7 KB | 11 lines | [TEXT/.Ob4]

¯6»ˇƒpH-7ˆÈ¥Kepler9Ç=øﬁ≈rëxJ˛±üµ3˚ÕÇÁé≠ÉNewParallel3NewLineIntersectionµNewCircleIntersection˛NewCircleLineIntersect±NewExtensionüNewRightAngle˚NewTangentÕÑÖ"…}nMath$…¢ãFiles7ı¨>KeplerFrames7ıl¿KeplerGraphs7ı-BKeplerPorts;‚WêFonts;‚ÜDisplayÜˇˇ¯˚˘ˇˇ{ˇ?ˇ ˇ˝Ú˘∞ˇ.˝E ˘d˘Dˇ¸8ˇ.˚íˇ˙ˇ;˘vá@C0C0ÄC0àø¡ˇ¯î!ˇ¿;·8;√ûûÄ~ÉÄÉÑûÄæÖÄ≈Ü®‰©}'BûÅ^äÅjã©ã|lH∞~ûûÄûÑÄ§ÖûÄﬁÜÄÊá©©'}HJûÅ~ãÅãå®l|ÉP∞ûÄ!ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Ä¢ˇ–®≈,ÜA‰ÄbˇÏÄBˇƒHÄA;√Ä‚ˇ‘ÄgˇÙÄBˇƒKˇˇÄAûê~ûÅà9 ±(ûÅ^ä8jÄBˇ–HÄAûÅ~ã8kÄBˇ–Kˇ˛±ÄAûÅûå8lÄBˇ–Kˇ˛ïÄA8~ÄÉˇ¸Äˇú| ¶ÄDˇ†O‡!ÄAÄ¢ˇ–Äe8ûÄ√ˇ¸Äˇî| ¶ÄFˇòO‡!ÄAÄ‚ˇ–Äg8ûÅˇ¸Äˇt| ¶ÄHˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øˇ‡9Åˇ–Hêî!ˇÄ;·8êA;√ûÅ>âÉ©ù´ΩûÅ^äÉäú´úûÅ~ãÉkõ´{ûÅûåÉLö´ZûÄ~ÉÉ#ô´9ûÄûÑÉò´|Ωÿ|›»|Â1÷}–}<¿}HI÷}gRmlÄëÇˇº»"ˇ∏»Bˇ∞¸a(|}ÿ|ùÿ|£!÷|‹–|¸–}9÷}%Bm*ÄëBˇº»Çˇ∏»¢ˇ∞¸ƒ((Ô„0$û}}ÿmlÄëÇˇº»‚ˇ∏…ˇ∞˝'@(o£Äêbˇº…Bˇ∏…bˇ∞˝äX(Ì©g˙¸éˇ¿Lˇ‡L»"ˇ®¸Ah*ÿB¸é®Ç∞ûû|º–l¶Äê¬ˇº»bˇ∏»Çˇ∞¸£ (oáÄê‚ˇº»¬ˇ∏»‚ˇ∞˝8(Ì%G˙˝@éˇ¿Lˇ‡L…bˇ®˝ãH*ŸÇ¸Ué©±ÄPÄ!9Åˇ–H|¶ªˇ‡O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Å"ˇ–©I/ A¯ÄbˇËÄBˇƒKˇ˛ÈÄA;√Åbˇ‘ÄkˇÙÄBˇƒKˇ˚·ÄAûê~ûÅûå8`∞lûÄûÑ8dÄBˇ–Kˇ˛yÄAûÄæÖ8eÄBˇ–Kˇ˚ëÄAûÄﬁÜ8fÄBˇ–Kˇ˚uÄA8~Ä„ˇ¸Äˇú| ¶ÄGˇ†O‡!ÄAÅˇ–Äh8ûÅ#ˇ¸Ä ˇî| ¶ÄIˇòO‡!ÄAÅBˇ–Äj8ûÅcˇ¸Äˇt| ¶ÄKˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ æ°ˇ‘î!ˇp;·8;√ûÅûåÉåú´úûÄ~ÉÉcõ´{ûÄûÑÉDö´ZûÄæÖÉ%ô´9ûÄﬁÜÉò´ûÄ˛áÇÁó™˜ûÅàÇ»ñ™÷ûÅ>âÇ©ï™µ}X∞}{»}äY÷||–|ó®|£!÷•`/ùA˛∞û|ÿ∞|¸–}9÷};∏}HI÷}x∞}õ»|ka÷|É·÷|™"|‹–|˜®}9÷}(¡÷}I(ù}jÍ◊@‡1kˇˇ±~û}ó®|{»|å÷|º¿|ƒ)÷|˜®}–}'A÷}IŸ÷}fR}õ»|x∞|å÷|§π÷|≈X|˝–á}:◊@‡1ˇˇ±Ä!∫°ˇ‘O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Å"ˇ–©I,äA‰ÄbˇÄBˇƒKˇ˚…ÄA;√Åbˇ‘ÄkˇÙÄBˇƒKˇ¯˘ÄAûê~ûÅûå8`∞lûÄûÑ8dÄBˇ–Kˇ˚YÄAûÄæÖ8eÄBˇ–Kˇ¯©ÄAûÄﬁÜ8fÄBˇ–Kˇ¯çÄAûÄ˛á8gÄBˇ–Kˇ¯qÄA8~Åˇ¸Äˇú| ¶ÄHˇ†O‡!ÄAÅ"ˇ–Äi8ûÅCˇ¸Ä ˇî| ¶ÄJˇòO‡!ÄAÅbˇ–Äk8ûÅÉˇ¸Äˇt| ¶ÄLˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø¡ˇ¯9Åˇ`Hêî!˛‡;·@êA;√ûÄ~ÉÄÉÑ®§l¶Äê¬ˇº…¢ˇ∏»ˇ∞ˇÌ(ûÄ˛áÅà©(m*ÄëBˇº»"ˇ∏»Bˇ∞ˇ¡(ûÅ~ãÅãå®lldÄêÇˇº»bˇ∏»Çˇ∞ˇ£ (ûÄæÖÄ≈Ü®ÊlËÄëˇº»¢ˇ∏»¬ˇ∞ˇÖ0(ûÅ>âÅIä©jmlÄëÇˇº»‚ˇ∏…ˇ∞ˇg@(ûÄ~ÉÄÉÑ®§l¶Äê¬ˇº…"ˇ∏…Bˇ∞ˇIP(ûÄ˛áÅà©(m*ÄëBˇº…bˇ∏…Çˇ∞ˇ+`(ûÅ~ãÅãå®lldÄêÇˇº…¢ˇ∏»ˇ∞ˇ(Ó˛¯(Ó‹Ë(Ï6≤Ï7˙ÄBˇ»HÄA˛†ê¿Bˇ§ˇA˙Óñ®$Ïw®$˛`PÏüÿ(Ïøÿ(Ï›»(Ï˝»(ÌÚÓDAzÌ>–(Ì^–(Ì|¿(Ìú¿(Ì´2Ó)j∫Ïà(Ï ®$ÏU*¿bˇ†Ì‚$Ìœì¸¿Çˇúˇé A¸®ûàæ|¶tl«Äê‚ˇº»¢ˇ∏»¬ˇ∞¸Â0(ÿˇˇ¯¸ pêÄBˇ»Kˇˆ=ÄA»ˇˇ¯ÓrûÌÚÌ4D8ÌI¯*˝`éˇ¿Lˇ‡L…Çˇ®˝¨P*Ÿ¢¸]é©±ûÏÚÏ3:ÏAË*¸`éˇ¿Lˇ‡L»Çˇ®¸§*ÿ¢¸é©"±>ÄËÄ!9Åˇ`H|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû8æÄBˇÃHÄA8~8ú8ΩÅBˇ‘ÅjˇÏÄˇ¨| ¶ÄKˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùûâû}ÖtÄBˇÃHÄA8~8ú8ΩÄ¬ˇ‘ÄÊˇÏÄˇ§| ¶ÄGˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†Åˇ–©(,âA‰‹Äbˇ¸ÄBˇƒKˇ¯·ÄA;√û9@ô^Åbˇ‘ÄkˇÙÄBˇƒKˇÛ—ÄAûê~ûÅûå8`∞lÄbˇ¸ÄBˇƒKˇÛ≠ÄA;£ù8ÄˇˇòùÄ¢ˇ‘ÄeˇÙÄBˇƒKˇÛÅÄAùê}ùÄ›Ü8‡∞ÊûÅà8hÄBˇ–Kˇ¯UÄAûÅ>â8iÄBˇ–KˇÛ%ÄAûÅ^ä8jÄBˇ–KˇÛ ÄAûÅ~ã8kÄBˇ–KˇÚÌÄAùÅùåûÄ~ÉÄÉêåûÄæÖÄ≈Ü®Ê1±ùÅ=âûÅ^äÅjëiûÅûåÄlÉ®É0§∞£ùÄ›ÜûÄ˛áÅëûÅ>âÅIä©j1ã±äùÄ}ÉûÄûÑÄ§ê£ûÄﬁÜÄÊá©1(±'8~ÅCˇ¸Ä ˇú| ¶ÄJˇ†O‡!ÄA8}Åcˇ¸Äˇú| ¶ÄKˇ†O‡!ÄAÅÇˇ–Äl8ûÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ¬ˇ–Äf8ùÄ„ˇ¸Äˇî| ¶ÄGˇòO‡!ÄAÅˇ–Äh8ûÅ#ˇ¸Ä ˇt| ¶ÄIˇxO‡!ÄAÅBˇ–Äj8ùÅcˇ¸Äˇt| ¶ÄKˇxO‡!ÄAÄ Ä!|¶ª°ˇÙO‡ |¶ø¡ˇ¯9Åˇ`Hêî!˛‡;·@êA;√ûÅûåÄlÉ®ÉlÖÄê¢ˇº»¬ˇ∏»‚ˇ∞ˇÊ8(ûÄﬁÜÄÊá©m Äë"ˇº…ˇ∏…"ˇ∞ˇ»H(ûÅ^äÅjã©ãmÉÄêbˇº…Bˇ∏…bˇ∞ˇ™X(ûÄûÑÄ§Ö®≈l«Äê‚ˇº…Çˇ∏…¢ˇ∞ˇåh(ûÅàÅ(â©ImKÄëbˇº»ˇ∏»"ˇ∞ˇ`(ûÅûåÄlÉ®ÉlÖÄê¢ˇº»Bˇ∏»bˇ∞ˇB(ûÄﬁÜÄÊá©m Äë"ˇº»Çˇ∏»¢ˇ∞ˇ$((ûÅ^äÅjã©ãmÉÄêbˇº»¬ˇ∏»‚ˇ∞ˇ8(Ó∫(Óò‡(Ì2Ï5EzÄBˇ»KˇıôÄA˛`ê¡"ˇòˇHA˙ÏÓTò$ÌUò$˛ PPÌÿ(Ìüÿ(ÌΩ»(Ï»(Ï-2Ó:Ôˇ–(ÔΩ¿(ÏQrÓÚ˙ÏqÚÓ“xÌ◊Ö¸¿Çˇîˇé A¸†ûàû|Ötl¶Äê¬ˇº»¢ˇ∏»¬ˇ∞¸Â0(ÿˇˇ¯¸ pêÄBˇ»KˇÔUÄA»ˇˇ¯ÌÁ∞zûÌÚ˝ @PÌI–*˝`éˇ¿Lˇ‡L…Çˇ®˝¨P*Ÿ¢¸]é®‚∞˛ûÏ√˙¸ éˇ¿Lˇ‡L»Bˇ®¸b*ÿb¸é©±ÄËÄ!9Åˇ`H|¶ª¡ˇ¯O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû8æÄBˇÃKˇÙÕÄA8~8ú8ΩÅ"ˇ‘ÅIˇÏÄ ˇ¨| ¶ÄJˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùûâ~}etÄBˇÃKˇÙMÄA8~8ú8ΩÅÇˇ‘ÄÃˇÏÄˇ§| ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†Ä‚ˇ–©,àA‰‹Äbˇ¯ÄBˇƒKˇÛ]ÄA;√û9 ô>ÅBˇ‘ÄjˇÙÄBˇƒKˇÌÄAûê~ûÅ~ã9Ä±ãÄbˇ¯ÄBˇƒKˇÏ·ÄA;£ù8`ˇˇò}ÄÇˇ‘ÄdˇÙÄBˇƒKˇÏµÄAùê}ùÄΩÖ8¿∞≈ûÄ˛á8gÄBˇ–KˇÚ—ÄAûÅà8hÄBˇ–KˇÏYÄAûÅ>â8iÄBˇ–KˇÏ=ÄAûÅ^ä8jÄBˇ–KˇÏ!ÄAùÅ}ãûÅûåÄlêkûÄûÑÄ§Ö®≈0Ê∞ÂùÅàûÅ>âÅIëHûÅ~ãÅãå®l0É∞åùÄΩÖûÄﬁÜÄÊêÂûÅàÅ(â©I1j±iùÅùåûÄ~ÉÄÉêåûÄæÖÄ≈Ü®Ê1±8~Å#ˇ¸Ä ˇú| ¶ÄIˇ†O‡!ÄA8}ÅCˇ¸Ä ˇú| ¶ÄJˇ†O‡!ÄAÅbˇ–Äk8ûÅÉˇ¸Äˇî| ¶ÄLˇòO‡!ÄAÄbˇ–Äc8ùÄ£ˇ¸Äˇî| ¶ÄEˇòO‡!ÄAÄ¬ˇ–Äf8ûÄ„ˇ¸Äˇt| ¶ÄGˇxO‡!ÄAÅˇ–Äh8ùÅ#ˇ¸Ä ˇt| ¶ÄIˇxO‡!ÄAÄ Ä!|¶ª°ˇÙO‡ ø¡ˇ¯î!ˇ¿;·8;√ûûÅ^äÅjã©ãUÉ<ûÄûÑÄ§Ö®≈|Ê∞˛ûûÅàÅ(â©IUK<ûÅûåÄlÉ®É|§X∞æÄ!ª¡ˇ¯O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿Ä¬ˇ–®Ê/A¯‰ÄbˇÙÄBˇƒKˇÏëÄA;√Åˇ‘ÄhˇÙÄBˇƒKˇÈQÄAûê~ûÅ>â9@±IûÅ~ã8kÄBˇ–KˇÏÄAûÅûå8lÄBˇ–KˇÈÄA8~ÄÉˇ¸Äˇú| ¶ÄDˇ†O‡!ÄAÄ¢ˇ–Äe8ûÄ√ˇ¸Äˇî| ¶ÄFˇòO‡!ÄAÄ‚ˇ–Äg8ûÅˇ¸Äˇt| ¶ÄHˇxO‡!ÄAÄÄ!|¶ª¡ˇ¯O‡ |¶øˇ‡9Åˇ∞Hêî!ˇP;·8êA;√ûÅ>âÉ©ù´ΩûÅ^äÉäú´úûÅ~ãÉkõ´{ûÅûåÉLö´ZûÄ~ÉÉ#ô´9ûÄûÑÉò´|Ω‡|›‡|Â1÷}»}:»}HI÷}gRmlÄëÇˇº»Çˇ∏»¢ˇ∞ˇ‰((|}ÿ|ùÿ|£!÷|⁄¿|˙¿}9÷}%Bm*ÄëBˇº»¬ˇ∏»‚ˇ∞ˇΔ8(ˇü@¸ho´Äëbˇº…ˇ∏…"ˇ∞˝HH(}ùÿmÉÄêbˇº…bˇ∏…Çˇ∞˝´`(ÏÚÏ $Ô™*oDÄêÇˇº»Bˇ∏»bˇ∞¸Ç(|∫¿l¶Äê¬ˇº»¢ˇ∏»¬ˇ∞¸Â0(ÌÚÌ($ÔÑH*Ì_$ÌÚÌã$Ì¨$Ï*h(ÄBˇ»KˇÓ≈ÄAˇ`êûûà˛|Ëtm Äë"ˇº»ˇ∏»"ˇ∞¸@(ÏbÚ}Z¿mKÄëbˇº»Çˇ∏»¢ˇ∞¸ƒ((Ï„È∫˝éˇ¿Lˇ‡L…"ˇ®˝I8*ŸB¸Eé©Ç±ûûûà~|dtlÖÄê¢ˇº…bˇ∏…Çˇ∞˝´`(ÏÚ|€Ël«Äê‚ˇº»"ˇ∏»Bˇ∞¸a(ÏÄ‡˙¸†éˇ¿Lˇ‡L»¬ˇ®¸Ê *ÿ‚¸-é©±ÄÄÄ!9Åˇ∞H|¶ªˇ‡O‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùû8æÄBˇÃKˇÓÄA8~8ú8ΩÅ"ˇ‘ÅIˇÏÄ ˇ¨| ¶ÄJˇ∞O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶øÅˇêî!ˇ∏;·8êA;√;Ñ;•8|8ùûâ~}etÄBˇÃKˇÌÅÄA8~8ú8ΩÅÇˇ‘ÄÃˇÏÄˇ§| ¶ÄFˇ®O‡!ÄAÄÄ!|¶ªÅˇO‡ |¶ø°ˇÙêî!ˇ†;·8êA;¿ìﬂìﬂìﬂÄ‚ˇ–©,àA‰x8ÄBˇ–KˇËÂÄAÅ?â©I1j±i8ÄBˇ–Kˇ‰çÄAÅüå®l0É∞å8ÄBˇ–Kˇ‰iÄAÄøÖ®≈0Ê∞Â;†/A˘Äbˇ‰ÄBˇƒKˇÈ9ÄA;√ûW®<1(ˇˇô>ÅBˇ‘ÄjˇÙÄBˇƒKˇ‰ÄAûê~ûÅ~ã9Ä±ãûÄ~ÉÄüêÉûÄæÖÄﬂê≈ûÄ˛áÅë8~Å#ˇ¸Ä ˇú| ¶ÄIˇ†O‡!ÄAÅBˇ–Äj8ûÅcˇ¸Äˇî| ¶ÄKˇòO‡!ÄAÅÇˇ–Äl8ûÄ£ˇ¸Äˇt| ¶ÄEˇxO‡!ÄA3ΩC‡ˇÄ0Ä!|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄÄ!|¶ª·ˇ¸O‡ âˇ¸ˇÏCircleIntersectionˇ¯ˇÏCircleLineIntersectionˇÙˇÏExtensionDescˇˇÏIntersectionDescˇÏˇÏParallelDescˇËˇÏRightAngleDescˇ‰ˇÏTangentDescä "$(*,HJLOQVX]_ãçèëìïóôõùü°£•ß©´≠»ﬁ %'NPRTVXZ\^`bdfhjlnprtvxz|áóú≠ ÃŒ—”ÿ⁄ﬂ·ÊË!#*,.579@BDKMOVXZaceèû´ È#+-/249;@BGINPQSVXZ^`acfhjnpqsvxz~ÄÅÉÜàäŒ–“Ÿ€›‰ÊËÔÒÛ˙¸˛ DS`}ú¬ ÃŒ÷ﬁ‡‚ÂÁÏÓÛı˙¸ !#$&)+-13469;=|}ÅÑÜàåçèëîñò¥∂∏ªΩ¬ƒÚÙˆ¯˙¸˛ STmnô∏‡ÈÚ˛ ã¯38Parallel.Calcself·{l¯Ç8NewParallelnew·{l¯˚»8RightAngle.Calcf†{self·{hx0‚{x1‰{x2Ê{y0„{y1Â{y2Á{¯ 8NewRightAnglenew·{h¯µÿ8Intersection.Calcf‚{self·{px0„{x1Â{x2Á{x3È{y0‰{y1Ê{y2Ë{y3Í{¯ã8NewLineIntersectionnew·{p¯ø‡¿CircleInter.CalcM1x†{M1y¢{M2x°{M2y£{R1x§{R1y¶{R2x•{R2yß{c´{d™{h±{mx®{my©{qxØ{qy∞{r1≠{r2Æ{s¨{self·{|¯ﬁ8CircleInter.Readr„{tself·{|¯˛8CircleInter.Writer„{tself·{|¯≈8NewCircleIntersectionnew1·{|new2‚{|¯Ú‡¿CircleLineInter.CalcL1x°{L1y£{L2x•{L2yß{M1x†{M1y¢{M2x®{M2y©{R1x§{R1y¶{c≠{d¨{h±{mx™{my´{qy∞{r1Ø{sÆ{self·{x¯ë 8CircleLineInter.Readr„{tself·{x¯± 8CircleLineInter.Writer„{tself·{x¯¯ 8NewCircleLineIntersectnew1·{xnew2‚{x¯ü8Extension.Calcself·{t¯Á8NewExtensionnew·{t¯é¯8Tangent.Calcd2°{faktor§{r2†{self·{dx0‚{x1„{x2‰{x3¢{y0Â{y1Ê{y2Á{y3£{¯≠8Tangent.Readr„{tself·{d¯Õ8Tangent.Writer„{tself·{d¯Ω(8NewTangenti‚{new·{dp0xp1xp2x¯»8$$˜CircleIntersectionsign˜CircleLineIntersectionsign˜ExtensionDesc˜IntersectionDesc˜ParallelDesc˜RightAngleDesc˜TangentDescsign